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ZTITLE ‘VAX=11_ CONVERT’ 
MODULE CONVSFSTIO ( ee ° 
Pp tevee 


BEGIN 


SOPRA RAAHAAEAAAAEAAEHEHHHEHETEHRHTHHAEHHTEKEKE HAHAHA AReeeeeEee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL AL EQUIPHENT ¢ T CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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:¢ hag SOF TWARE 5S pant snee UNDER A LICENSE AND MAY BE USED AND sonic’ 
ie Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE -~ a THE 
ie IN NCL USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER 
ie COPIES THEREOF = NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
* 
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— 
® 
* 
® 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* poRPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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F 9 
C T10 VAK-11 CONVERT 15-Sep-1984 23:54: AX-11 Bliss-32 V4.0-742 
iva +8 12-808-} She 343434 CONV. SRCJCONVFSTIO.832;1 
3 1 1 lee 
; 1} 
: 4 ! Facility: VAX=-11 CONVERT 
; 5 4 i Abstract: CONVERT fast load 1/0 and bucket routines 
: 1} Contents: 
3 8 1! WRITE BUCKET 
3 9 i! T_NRTBK 
3 40 1! SWAP _ BUCKET 
3 41 0 1! GET_Buc 
3 8 ee INIT BUCKET 
; 6 § 1! EXTERD_AREA 
3 (6 1i CONVERT_VBN_ID 
J @ 0446 1! 
: re 045 ; : Environment: 
3; 8 oti VAX/VMS Operating System 
; 49 : 1! 
; 50 1 !e- 
3 1 0050 1 
; ¢ 0051 1! 
3 0036 1 ! Author: Keith B Thompson Creation date: Augus t-1980 
3 ee 0053 1! 
3 5 0054 1! 
3 28 0055 1 ! Modified by: 
 - 9038 1! 
; 3 0057 1! v03-005 RASO331 Ron Schaefer 31-Jul-1984 
; 20 83 Accumulate total area allocation. 
: (61 0060 1} V03-004 KBT0478 Keith B. Thompson 29-Jan-1983 
: 6¢ 8 Make extend_area global 
: (64 boss 1: v03-003 KBT0385 Keith B. Thompson 27-0c t-1982 
; 8* seg: : Make changes to support prologue 3 sidrs 
3 67 0066 1 i v03-002 KBT0350 Keith B. Thompson 4-0c t-1982 
: os 44 : } Use new Linkage definitions 
; $3 0069 1: v03-001 KBT0024 Keith Thompson 25-Mar-1982 
: 4 tA : Change the Linkage to get_bucket and remove some useless code 
; ig 0072 1 iseee 


— 


2 

i¢ FSTIO VAK=11 CONVERT 18-sep-1 4 23:5 AX-11 Bliss-32 V4.0-742 Page 3 
Beas 14-Sep-1 198 3: 33; iy CONV. SRCICONVFST1IO.832;1 . (3) 
Fe a 731 

2 74 1 PSECT 

eR + = _CONVSFAST_D (PIC), 

3 8 * 1 GLOBAL = _CONVSFAST_D (PIC) 

aa 77 1 PLIT = “CONVSPLIT”  (SHARE,PIC), 

: , 8 : CODE = CONVSFAST_S (SHARE,PIC); 

; ¢ O 1} LIBRARY ‘SYSSLIBRARY: pe: 

3 5 1 : LIBRARY *SRC$: CONVERT 

3 5 ; ; DEF INE_ERROR_CODES; 

; 5 1 EXTERNAL ROUTINE 

3 8 1 oat og Al 48 VM : edt TEMP_VM, 

; 91 89 : CONVSSRES “READ ERROR : NOVAL UE: 

5 36 8 1 FORWARD RoyT ine 

; 9 091 «#1 ght : CLSJSB_REG_9 NOVALUE, 

; 1% 0092 1 SWA GAPS CKET : CLSJSB_REG_9 NOVALUE, 

; 9 0093 1 CONVSSINIT BUCKET : CLSJSB-REG-9 NOVALUE, 

3 8* 8 CONVSSEXTERD_AREA : CLSEXTEND_AREA NOVALUE ; 

; 98 00 1 EXTERNAL 

; 99 0097 1 CONVSGL_RFA_BUFFER, 

; 100 0098 1 

; 6101 0099 1 CONVS$AB_OUT_F AB : SFAB_DECL, 

3 i9¢ 0100 1 CONVS$AB_OUT_RAB : SRAB_DECL, 

; 1 0101 1 

: 1046 a4 1 CONVSGL_CTX_BLOCK, 

: 105 0105 1 

3; 106 0104 1 CONVSGL_EOF VBN, 

3 107 HH 1 CONV$GB_PROC_v3 : BYTE 

; 108 196 1 CONVSAR— “AREA BLOCK : REF BLOCKVECTOR C ,AREASC_BLN,BYTE J, 

; 109 0107 1 CONVSGW_AREA_SIZE : WORD; 
: 110 0108 1 
ae 34 1 MACRO 
: V6 110 #1 

3 aE ee : : These macros make the code look a Little better 

3 6115 B18 1 BKTS$W_VBNFS = .CONVSGW_VBN_ FS. pre 0 19, ORE ' VBN Freespace Pointer in index level 
s 116 0114 1 BK T$W_VBNF SO = .CONV$GW_VBN_F 8 i VBN Freespace Pointer at the data level | 
: u gti? : BKTSL_LCBPTR = .CONVS$GW-LCB_ “PIR. 0, 2,6 i Last Contuation Bucket Pointer 

: 119 4 1 EXTERNAL 

; 120 34 1 —5/8 VBN_FS_PTR : WORD, 

s el 011 1 CONVS GW VBN_ FS-PTRO : WORD, 

§ : § at ’ ' CONVSGW-LCB_PTR : WORD; 

3 126 01 ; 1 GLOBAL CONVSGL_CONT_VBN : LONG; 

: 125 01 1 
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| 
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9 
n eheruen 1S-Seo-1984 28:84:11 


p-1984 


RSBTTL ‘WRITE BUCKET’ 


GLOBAL ROUTINE CONVSSWRITE_BUCKET : 


CL$JSB_REG_9 NOVALUE = 


Functional Description: 

Writes the current bucket into the output file 
Calling Sequence: 

CONVSSWRITE_BUCKET() 


Input Parameters: 
none 


Implicit Inputs: 
none 

Output Parameters: 
non 

Implicit Outputs: 
none 

Routine Value: 
none 


Routines Called: 


SET _NXTBKT 
SWAP BUCKET 


SWRITE 
CONVS$RMS_ERROR - By RMS as an AST 


Side Effects: 
none 


DEF INE_CTX; 

DEF INE_BUCKET; 

DEF INE~KEY_DESC; 

: Set the next bucket pointer to the bucket 


SET_NXTBKT(); 


: Point RMS to the bucket. NOTE: This is where OUT_RAB is changed 


CONVSAB_OUT_RAB ([ RABSL_RBF ) = .BUCKET; 
CONV$AB-OUT~RAB { RABSWIRSZ ) = .CTX C CTx$L_SIZ ); 
CONV$AB-OUT~RAB [ RABSL~BKT } = .CTX C CTXSLZCURRENT_VBN J; 


! If we are doing double pul toring on this bucket 
! then swap pointers to the buckets 


and set for asyc. operation 


Page 4 
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9 
VAX=11 CONVERT bese -1984 23:54: AX-11 Bliss-32 v4.0-742 
WRITE_BUCKE 1278 08-1 3c 93:79:45 CONV. SRCJCONVFSTIO.832;1 
181 ' 
1 : if .CTX C CTX$vV_DBF J 
1 THEN 
4 BEGIN 
: — Switch the buffer 
§ SWAP_BUCKET(); 
19 } Set the asynchronous bit 
19¢ CONV$AB_OUT_RAB [ RABSV_ASY J] = _SET 
194 END 
195 ELSE 
0197 } If not then we need a syncrous call 
0199 CONVS$AB_OUT_RAB [ RABSV_ASY ) = _CLEAR; 
: 8 Wait on the Last 10 if necessary 
9 08 SWAIT ( RAB=CONVSAB_OUT_RAB ); 
8 05 Write The Bucket 
0907 SWRITE ( RAB=CONVSAB_OUT_RAB,ERR=CONVSSRMS_ERROR ); 
9209 RETURN 
ah 1 END; 


-TITLE CONVSFSTIO VAX-11 CONVERT 
-IDENT \V04-000\ 


-PSECT _CONVSFAST_D,NOEXE, PIC,2 
00006 CONVSGL_CONT_VBN: : 
-BLKB 4 


CONVS$_DUP, V$_EXTN_ER 
-EXTRN CONVS_FATALEXC, CONVS-FILLIM 


-EXTRN CONVS_IDX_LIM, CONVS_TLL_KEY 
-EXTRN CONVS$"ILL~VALUE 

-EXTRN CONVS"INP-FILES 

-EXTRN CONVS_INSUIRMEM 

.EXTRN CONVS"INVBKT, CONVS_KEY 
~EXTRN CONVS"KEYREF, CONVS-LOADIDX 
“EXTRN CONVS"NARG, CONVS_NT 

-EXTRN CONVS_NOKEY, CONVS_NOTIDX 
“EXTRN CONVS"NOTSEG, CONVS_NOWILD 


r 
_COMVSE sT10 


VAX=11_ CONVERT =gep 
WRITE_BUCKE -Sep 


»PSECT 


0000v 30 00000 — 3—9— 


e 92:13:57 


AX-11 Bliss-32 v4.0- 
CONV. SRCICONVFSTIO.B 


CONVS_ORDER, CONVS OPENEXC — 
CONVS— =prENIA, CONVS_OPENOU 


CONV C Pt 
CONV$-PROERR CORY PROL_wWR 
CONVS-READERR, CONVS_RSK 


ONS UDF _BL 
ONS —BE ——3 ITEERR 
V$SGET 
CONVSS 4 —x 
— READ_ERROR 

_RFA_BUFFER 
*8 


AB RAB 
NVSGL_CTX_BLOCK 
BN 


CONVSGW_ 
SySSuAITS SPSSURITE 


_CONVSFAST_S,NOWRT, SHR, 


BSB T_NXTBKT 
0000G CF 59 00 00003 MOVL aucRe! CONVS$AB_OUT_RAB+40 
0000G CF 20 AA BO 00008 MOVW 2(CTXS, C ONYSAS OUT_RAB+34 
0000G CF 08 AA 00 OQOO0E MOVL 8(CTX) CONV AB_OGuT_RAB+56 
OA 6A 03 fi 00014 BBC #3, (cf) 
0000v 30 00018 BSBW SWAP_BUC 
0000G CF 01 88 00018 BISB2 #1, CONYSAB _OUT_RAB+4 
05 11 00020 RB 2s 
00006 C 01 8a 000 ¢ 1$ B1CB2 CONVSAB_OUT_RAB+4 
0000G CF 9F 00027 2$ PUSHAB Convene OUT" RAB™ 
00000000G 00 01 FB B28 8 CALLS #1, SYSSWAIT 
0000G CF 9F 000 PUSHAB CONVS$SRMS_ERROR 
0000G CF 9F 000 PUSHAB CONVS$AB_00 
000000006 00 02 FB 00034 CALLS #2, SyeSURITE 
05 00041 RSB 
: Routine Size: 66 bytes, Routine Base: _CONVSFAST_S + 0000 
; 215 0212 1 
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9 
5-$ep-1984 23:54: AX-11 
27808-1383 $3: 7¢:2} CONV.S 
SET_NXTBKT’ 
ET_AXTBKT : CL$JSB_REG_9 NOVALUE = 


Functional Description: 

Writes the next bucket vbn field in the current bucket 
Calling Sequence: 

SET_NXTBKT() 


Input Parameters: 
none 


Implicit Inputs: 
none 

Output Parameters: 
non 

Implicit Outputs: 
none 

Routine Value: 
none 


Routines Called: 
non 


Side Effects: 
none 


BEGIN 
DEF INE_CTX; 


DEF INE_BUCKET; 

LOCAL AREA; 

: Get the area that the bucket is in 

AREA = .CTX C CTXSB_AREA J; 

! If this is the last bucket in a horz. chain ‘ 
! then write back pointers to the beginning of the chain 
else write next bucket pointers 


if .BUCKET C BKTSV_LASTBKT ) 
THEN 


Next bucket pointer points to the first bucket in this chain 


ev seeuene C BKTSL_NXTBKT } = .CTX C CTXSL_FIRST_VBN J 


—— 


—— 
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; Routine Size: 


1$-52p-19 4 


VAK=-11 CONVERT 2:54:11 AX-11 Bliss-32 V4.0-742 P 8 
SET _NXTBKT 1ensee1Sbe Faitksey Peony bt sEEnees toca soc1 — «sl 
7 
0 ! First see if the next bucket will fit in the current extent. If it dosen't 
3 then set the next bkt. ptr to EOF else set it to next bucket 
74 ir ( sCoyvens AREA_BLOCK C .AREA,AREASB pate J TR 
75 & CONV * AREA BLOCK Anes. AREAS weik 
7 ONVSAR_AREA BLOCK [ MAREAL Lshre L_USED })) 
f THEN 
7 ! Next bucket pointer points to end of file where the next extend 
9 will come from. (in INIT_BUCKET) 
e gvcxt C BKTSL_NXTBKT ] = .CONVSGL_EOF_VBN 
84 
+H } Next bucket pointer points to the next bucket VBN in this area 
0 e BUCKET C BKTSL_NXTBKT ] = .CONVSAR_AREA_BLOCK C .AREA,AREASL_NXTVBN J; 
0289 RETURN 
0290 
0291 1 END; 
52 DD 00000 SET_NXTBKT: | 
PUSHL R2 : 0214 
50 01 AA 9A 00002 MOVZBL 1(CTX), AREA 3 0257) 
07 OD 49 EF 00006 BLBC 13(BUCKET), 1$ 3: 0263) 
08 49 24 AA 00 44 MOVL + Ee 8 (BUCKET) ; 0268 | 
2E 11 OOO0F BRB $ 3 
51 00006 CF b0 00011 1$: MOVL § CONVSAR_AREA_BLOCK, R1 > 0274 | 
50 50 06 00016 ASHL #6, RO, R 3 
10 A041 9F OOOIA PUSHAB 36 R1 : 0276 
14 AO41 OF 88 PUSHAB 20(RO)CR1 3 
52 9E +3 C3 000 SUBL3 a(SP ae 3 
03 A041 08 0 FD 0026 CMP2v #0, * (RODERISS R2 : 0275. 
8 0020 BLEQ 2s 3 
08 A9 0000G CF 60 0002F MOVL ONVSGL_EOF_VBN, 8(BUCKET) F 0282 | 
08 11 000 3 BRB 33 3 
18 A041 9F 00037 2$: PUSHAB 24(RO)CR1) 3; 0287 
08 49 RX DO 00038 MOVL a(SP)+, 8(BUCKET) F 
04 BA 8 F 3$: POPR #*M<R2> 3; 0291 
05 00041 RSB 3 
66 bytes, Routine Base: _CONVSFAST_S + 0042 
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38 bytes, 


: Routine Size: 


VAK=11 CONVERT 
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ZSBTTL ‘GET BUCKET’ 
GLOBAL ROUTINE CONVSSGET_BUCKET ( AREA) : 
i 


Functional Description: 


CL$JSB_REG_9 NOVALUE = 


Allocates and formats a pair of buckets in memory 
i Calling Sequence: 
CONVSSGET_BUCKET( area ) 
i Input Parameters: 
area - Area from witch the bucket is to be allocated 
i Implicit Inputs: 
none 


! 
1 
1 
1 
' 
' 
' 
' 
' 
' 
1 
1 
boutoput Parameters: 
none 

! Implicit Outputs: 
none 

' Routine Value: 
none 
Routines Called: 

! 
1 
1 
1 
' 
1 
1 


CONVSSGET_TEMP_VM 
INIT_BUCKET 


i Side Effects: 
none 


BEGIN 
DEF INE_CTX; 

DEF INE BUCKET; 
DEF INE~KEY_DESC; 


LOCAL 
BYTES; 


! Get the number of ayes per bucket for that area: ) 
( bytes = blocks * block_size * 2 ) NOTE: *2 for double buffering 


BYTES = ( .CONVSAR_AREA_BLOCK C .AREA,AREASB_ARBKTSZ J] * BLOCK_SIZE * 2); 
Get the space. 

BUCKET = CONVSSGET_TEMP_VM ( .BYTES ); 

! For double buffering then hide the extra buffer for later 


— 


— —— 
AX-11 Bliss-32 V4.0-742 

voevo08 ° ter pucker 1$-Se0-1 Be FSiF3:2) peg Release Vhs ets? 

' 

; 9 BYTES = .BYTES / 2; 

: a1 } Initialize some static values 

; 4) 4) 

: ™ { CTXSL_CURR Nt BUFFER ] = .BUCKET; 

; 055 13 ET CTXSL“SIZ J =".BYTES; 

; ¢ 5 <i? CTXSL_END points at the first free byte BEFORE the check byte 

; ¢ $ i crx CTX$L_END ] = ‘BUCKET + .BYTES = 2; 

am 6 0 CTX € CTX$BTAREA } = .AREA; 

iB BE ie 

; ¢ be 4 Init. static fields in the bucket 

‘ $33 636 = 

; d : : : Level (all prologues) 

; ¢ 3 o¢ 0 BUCKET {C BKTSB_LEVEL J = .CTX C CTXSB_LEVEL 2; 

: ¢ ! Prologue Gependent fields and some pointers into the 

: 639 be § : Locket’ and some sizes 

: tet be 3 if .CONVS$GB_PROL_v3 

; te bc39 THEN REGIN ! Prologue 3 

: tes oc38 Bucket key of ref 

: te bees BUCKET C BKT$B_INDEXNO ) = .KEY_DESC C KEYSB_KEYREF J; 

: tes te ! For level 0 (data) buckets we can have a LCB pointer 

1 1 

8 bees if .CTX C CTXS$B_LEVEL J EQL 0 

451 0445 ⁊ 

: 65 044 THEN 

: 45 044 

: 654 0448 IF ( .KEY_DESC C KEYSB_KEYREF ) EQL 0 2 AND timo 

> 4655 449 wee 

; re re 4 BEGIN 

: 138 ER 4 Only primary data bucket have a LCB pointer 

: 08? ee CONVSGW_LCB_PTR = .BYTES - 6; 

; te 33 CTX C CTX$W_FREE ] = .BYTES - BKTSC_OVERHDSZ - 6 

. ee _ 

88 HOE CTX C CTXSW.FREE J = .BYTES = BKTSC_OVERHDSZ - 2 

: 668 46 

: 469 46 ELSE 

.-< 464 4% BEGIN 

: t79 65 4 
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¢ FSTIO VAK=11 CONVERT 1b.se =1984 23:54: AX-11 Bliss-32 V4.0-742 
Rivets} GET _BUCKET 12-80 8-1 he 3331 CONV. SRCIJCONVFSTIO.832;1 
: oy : : Index buckets only have a VBN freespace pointer 
3 67% 4 CONVSGW_VBN_FS_PTR = .BYTES - 4; 
3 47 4 CTX C CTXSW_FREE ] = .BYTES = BKTSC_OVERHDSZ - 4 
; 47 END 
3 «(47 END ! Prologue 3 
; 4 ELSE 
: : 1 BEGIN ! Prologue 1,2 
3 Q ; Bucket area number 
; 485 BUCKET C BKTSB_AREANO ) = .AREA; 
; cB Highest record id 
: 489 BUCKET { BKTSB_LSTRECID J = 255; 
3 491 : The space avail. is bytes - overhead - check byte 
3 493 CTX C CTXSW_FREE J = .BYTES - BKTSC_OVERHDSZ - 1 
3 495 489 END; ! Prologue 1,2 
: 499 ! For double buffering set up the pointers tc the buffers and init 
3 rey 3 the extra buffer 
3 200 ‘ ; Set up the various pointers 
; 208 B96 CTX { CTX$L_PTO ] = .BUCKET; 
} 0 49 CTX C CTX$L_PTI = .BUCKET + .BYTES; 
: 504 0498 CTX C CTXSL_LENO J = .CTX C CTXSL_END 33 
: 38 88 CIXI CTX$L_EN1 = .CTX C CTXSL_END J + .BYTES; 
; *8 030) Init the second buffer by coping the static overhead into it 
; $0 0308 CHSMOVE ( BKTSK_OVERHDSZ + 1,.CTX C CTXSL_PTO J,.CTX C CTXS$L_PT1 J ); 
: 314 Bene ! Tell everyone that we are doind double buffering and which bucket 
3 3% 5 ! are pointing to 
3 ig 050 : 
; 514 0508 CTX C CTX$SV_DBF ) = _SET; 
: \ F394 CT™X C CTX$V_DBX J = _CLEAR; ! Clear = bucket 0, Set = bucket 1 
; Hi Bait Initialize dynamic values and update area descriptor 
; 19 i CONVS$INIT_BUCKET(); 
; 521 315 ! Set the pointer for this level 
: 5 319 CTX C CTXSL_FIRST_VBN ] = .CTX C CTXSL_CURRENT_VBN J; 
3 5 319 Say that the bucket is ready and that will have the first record 
i 359 $31 CTX { CTX$V_RDY ) = _SET; 
: 528 0522 C™x C CTX$VZFST J] = “SET; 


i 
| 
| 


roe 


CONVSFSTIO VAK=11 CONVERT 
bets GET_BUCKET 


: 


3 3 
H 4 RETURN 
3 2 6 END; 
50 14 
51 
04 
60 
C 
01 
0c 
01 
0000G CF 
28 44 
28 AA 
0000G CF 
28 44 
01 
07 
28 44 
10 
18 AA 
14 
1C¢ 
18 BA 10 
24 


iSodeo-t9Re 25:54: 


3C BB 00000 CONVSSGET BUCKET 
POSHR 


06 7 ASHL 
»Rü —14838 
03 AO 9A 900¢ MOVZBL 
OA 8 0001 ASHL 
1 p 0014 PUSHL 
00006 0016 BSBW 
04 CO 0001 ADDL2 
DO 0001C¢ MOVL 
9 C6 0001F DIVL2 
DO 00022 MOVL 
51 00 00026 MOVL 
FE A149 9E OO02A MOVAB 
14 AE 90 000 MOVB 
02 AA 90 00035 MOVB 
F2 sot oe 0003A MOVAB 
00006 CF f 000 ‘ BLBC 
15 AB 90 0004 MOVB 
02 AA 95 00048 TSTB 
1D 12 0048 BNEQ 
15 AB 95 00040 TSTB 
11 12 00050 BNEQ 
10 ae €9 00052 BLBC 
06 a3 00056 SUBW 
06 a’ 0005C SUBW 
22 11 00061 BRB 
02 A3 90065 1$: SUBW3 
1B 11 00068 BRB 
04 a3 0006A 2s: SUBW 
4 A 99 SUBW 
—E 11 0007 BRB 
14 AE 90 00077 38: MOVB 
01 8 0007C MNEG 
1 A 9080 SUBW 
9 D 085 4$: MOVL 
my 0089 ADDL3 
0 AA b0 00 : OVL 
€ BAG1 009 v 
OF 0099 vC 
009F BISB 
10 BA 0 A BICB 
0000v A SBW 
08 AA p OOA MOVL 
95 OOAD BISB2 
t BA 0 80 POPR 
5 0008 RSB 


Uy} AX-11 ARES ie V4.0-742 
CONV. SRCJCONVF STI0.832;1 


#AM<R2,R3,R4,R5> 

#6, AREA, R 

CONVSAR AREA_BLOCK, RO 
(RO), BYTES 

#10 BYTES, BYTES 

CONVSSGET_TEMP_VM 

#4, SP 

RO, BUCKET 

#2, BYT 

x) 

x) 

CKETJ, 12¢CTX) 

UCKET) 


V3, 3$ 
» 1(BUCKET) 


1$ 
. BYTES, CONV$GW_LCB_PTR 
; RO, 40(CTX) 


#2, RO, 40(CTX) 


#4, BYTES, CONVSGW_VBN_FS_PTR 
a4, RO, 40(CTX) 


4 
AREA, 1(BUCKET) 
ai, ?(BU 


( 


ET) 
K 
0 
Y 
T 


E 
T 
T 
T 


C 
E 


K 
T 
C 
C 
E 
( 
T 
x) 


2OOMRBRREeQ—WO2 


353 


0406 


0498 | 


ear cet _uckel EREScISES GHSHSED) WMI TBLS2GadPo Yael? — 


Routine Size: 179 bytes, Routine Base: _CONVSFAST_. 


— — 


10 
C FSTIO VAK=-11 CONVERT 18.30 -1984 54:1 AX-11 Bliss-32 V4.0-742 Page 16 
—886 INIT BUCKET 127808-13be 31431 CONV. SRCICONVFSTIO.832;1 . (8) 
H 7 1 2SBTTL ‘INIT BUCKET’ 
3 5 3 ! GLOBAL ROUTINE CONVSSINIT_BUCKET : CLSJSB_REG_9 NOVALUE = 
; 01: 
3 1 } } Functional Description: 
: 40 2 § 1 i Gets a new VBN for a bucket in the proper area and initializes 
3 8 8 all of the dynamic fields in the bucket 
; 58 0 $ i Calling Sequence: 
; 45 05 8 ; CONVS$INIT_BUCKET() 
: <3 540 1! Input Parameters: 
3 re rot : none 
: 550 ba08 1 | Implicit Inputs: 
$ rH! 88 none 
; 23 0546 1 | Output Parameters: 
eo Rie 
: 296 0549 1 ! Implicit Outputs: 
Be 8 8) eile 
: 559 053¢ 1! Routine Value: 
ed | | ie 
; 206 B22? : ; Routines Called: 
; 364 0397 1 CONVSSEXTEND_AREA 
: 366 0359 i Side Effects: 
; 568 0561 1} Could extend the allocation of the output file 
; 569 8266 1! 
; 570 0565 1 !-- 
s Sr 0564 1 
s 278 R262 BEGIN 
; 574 0567 DEF INE_CTX; 
3 372 0568 2 DEF INE_BUCKET; 
3 26 0969 DEF INE-KEY_DESC; 
; 28 0371 LOCAL AREA; 
3; 579 276 
; 380 0973 AREA = .CTX C CTX$B_AREA ); 
; 388 0376 See it the bucket will fit in the current extent if it doesent extend the 
: 584 57 i . 
s 585 $e IF ( .CONVSAR_AREA_BLOCK C_.AREA,AREASB_ARBKTSZ J] GTR 
; 586 579 & (" SCONVSAR_AREA_BLOCK C .AREA,AREASC_CNBLK ] - 
3 Ser 0380 -CONVSAR_ARER_BLOCK C .AREA,AREASL_USED ] ) ) 
5 $88 5 THEN 
3 89 b28s 
; 590 05 ' Extend area 


| 


.---—-—- 


| 


¢ FSTIO 


# 10 
VAK=11 CONVERT 15-Sep-1984 23:54:11 AX-11 Bliss-32 V4.0-742 Page 17 

| INIT BUCKET 12-8 08-19be 34333 CONV.SRCICONVFSTIO.832;1 ’ (8) 
; $91 4 : 

; 5 CONVSSEXTEND_AREA ( .AREA ); 

; 8 Set the VBN of the bucket and determine the size of the VBN pointers 

3 33 ; 5 BEGIN ' VBN Local 

: 59 91 LOCAL VBN; 

3 3 336 

5 —8 237 } Get the next VBN of this bucket 

3 608 0396 VBN = .CONVSAR_AREA_BLOCK C .AREA,AREASL_NXTVBN J; 

: 604 0 39 CTX C CTXSL_CURRENT_VBN ] = .VBN; 

; 605 0598 ' 

; 8 0599 ! Determine the pointer size needed for this VBN 

; 60 0600 ‘ 

; 608 0601 IF .VBN LSS 65536 

; 609 060 THEN 

; 610 060 CTX C CTX$V_VBN J] = 0 ! 2 byte pointer 

3 $1) 0604 ELS 

3 ol¢ 0605 IF .VBN LSS 1048576 

; 61 0606 

>; 6146 0607 CTX { CTX$V_VBN J) = 1 ! 3 byte 

: 615 0608 ELSE 

; 616 0609 CTX C CTX$V_VBN J] = 2 ! 4 byte 

; 617 0610 

; 618 0611 END; ' VBN local 

; 619 pele 

; 620 061 124 

3621 0614 ! 

s 6 § 0615 !' Update the area descriptor to account for the new bucket 

; 62 9616 ! 

3 ose 061 ten 

: 625 0618 ? 

: 8 +44 Correct the pointers and counters in the prologue area descriptor 

; rey pest CONVSAR_AREA_BLOCK C .AREA,AREASL_USED ] = 

3 69) bose -CONVSAR_AREA_BLOCK C .AREA,AREASL_USED J + 

; os 8 -CONVSAR_AREA_BLOCK C .AREA,AREASB_ARBKTS2Z J; 
3 os 0625 CONVSAR_AREA_BLOCK C .AREA,AREASL_NXTVBN J] = 

3 65 0626 -CONVSAR_AREA_BLOCK [ .AREA,AREASL_NXTVBN J + 
3 38 8 .CONVSAR_AREA_BLOCK C .AREA,AREASB_ARBKTSZ J; 
; 636 0629 CONVSAR_AREA_BLOCK C .AREA,AREASL_TOTAL_ALLOC J = 

3; 637 0630 .CONVSAR_AREA_BLOCK [ .AREA,AREASL_TOTAL ALL OC j + 
| O38 963) -CONVSAR_AREA_BLOCK C .AREA,AREASB_ARBKTSZ J; 
: 640 6 : lee 

: oe 4 Init. d ic fields in bucket 

3 ! Init. dynamic fields in bucke 

3 tg 3 $ ; 

> 644 6 leo 

3; «645 3 

: 646 6 ! Bucket control byte (all prologues) 

: 6467 0640 : 


| 10 
“epavgesrio —varet4 convent 1BoSep-1986 25:54:11 YAKett Bl ins-32 v4-0-742 


Reset the record ID 

BUCKET C BKTSB_NXTRECID J] = 

END; ! Prologue 1,2 
Reset the avaiable space in the bucket 
C™X C CTXSW_SPC ] = .CTX C CTXSW_FREE J; 
Indicate that the bucket has not been used yet 


-11 

T_BU 
; ote eh BUCKET C BKTSB_BKTCB ) = _CLEAR; 
3 est § } The freespace always points just past the bucket overhead (all prologues) 
5 6 é 0645 BUCKET C BKTSW_FREESPACE ] = BKTSC_OVERHDSZ; 
3 634 Ose? t Set address sample (all prologues) 
; 636 ge BUCKET C BKTSW_ADRSAMPLE J] = .CTX C CTXSL_CURRENT_VBN J; 
; $28 0651 : Prologue dependent fields 
: 660 0388 if .CONV$GB_PROL_Vv3 
; 661 654 THEN 
3 666 0655 BEGIN ! Prologue 3 
; 8628 
3: 664 065 ! Index buckets have VBN freespace pointers 
; 665 0658 ‘ 
; 666 0659 IF .CTX C CTX$B_LEVEL ] NEQ 0 
; 667 0660 THE 
: 668 0661 4 BEGIN 
; 669 2906 4 
; 670 0665 4 LOCAL CTX_M1 : REF BLOCK C ,BYTE J; 
; 671 0664 4 
5 33 0665 4 ! The VBN of the bucket one level down determines size 
; of? pees ? of the VBN pointers in this bucket 
: 675 0668 4 CTX_M1 = .CTX = CTX$K_BLN; 
3; 676 0669 4 
5 ort pony — BUCKET C BKT$V_PTR_SZ J] = .CTX_M1 C CTX$V_VBN J; 
: 8 per ? The vbn freespace points to the byte just before the pointer 
: 681 0674 4 BUCKET C BKTS$W_VBNFS J] = .CONVSGW_VBN_FS_PTR - 1 
; 68 0675 4 
; 68 0676 END; 
: 684 0677 
; 685 0678 ' Reset the next record ID 
; 686 0679 ! 
; 687 0680 BUCKET C BKTSW_NXTRECID J = 
; 688 0681 
; 689 068 END ! Prologue 3 
: 690 068 ELSE 
; 691 eT: BEGIN ! Prologue 1,2 
; 69 685 


| 10 
CONVSFSTIO VAX=11 CONVERT 1ba5e =1984 23:54:1 AX-11 Bliss-32 V4.0-742 p 19 
700-008 INIT_BUCKET 12-08-1382 3 13 i} CONV. SRCIJCONVFSTIO.832;1 wo eh 
; 705 98 CTX C CTX$W_USE ] = 0; 
68 
0 ai RETURN 
0702 END; 
OC 8B 00000 CONVSSINIT_BUCKET:: 
PUSHR #*M<R2,R3> : 32 
50 01 AA 9A £0008 MOVZBL (CTX), AREA ; 05 
51 00006 CF 00 006 MOVL  CONVS$AR_AREA_BLOCK, R1 : 0578 
52 50 06 00008 ASHL #6, ARER : | 
10 30 9F OO00F PUSHAB 1g(Re) Ri + 0580. 
14 A261 OF 90015 PUSHAB 20(R2)CR1 : 
53 3 3 C3 0001 SUBL3. @(SP)+, a(SP)+, R3 : 
53 03 A241 0 00 £0 90018 CMPZ7V #0, #8, 3(R2)CR1], R3 + 0579 
08 15 000 Leos : | 
50 bp 00024 PUSHL AREA : 0585. 
0000v 30 00026 SBW CONVSSEXTEND_AREA : 
SE 04 CO 00029 ADDL2 #4, 3 
50 00096 CF 00 0002C 1$: MOVL CONVSAR AREA_BLOCK, RO + 0595 
18 A240 9F 00031 PUSHAB 24(R2)CRO) : 
51 9E DO 00035 MOVL a@(SP)+, VBN : 
08 AA 51 00 00038 MOVL BN, 8(CTX) : 0597 
00010000 -8F 51 D1 000 ¢ CMPL  VBN, #65536 + 0601 
06 18 0004 BGEQ = 2$ ; 
6A 60 8F BA 00045 BICB2 #96, (CTX) + 0603 
15 11 00049 BRB 4$ : 
00100000 = 8F 51 01 00048 2$: CMPL = VBN, #1048576 + 0605 
07 18 0005 BGEQ © 3$ : 
6A 02 05 01 FO 00054 INSV #1, #5, #2, (CTX) : 0607 | 
05 11 00059 BRB 4$ ; | 
6A 02 05 02 FO 00058 3$: INSV #2, #5, #2, (CTX) + 0609 | 
51 03 A240 9A 00060 4$: MOVZBL 3(R2)(ROJ, R1 : 0623 
14 A240 9F 00065 PUSHAB 20(R2)CROS : 
9E 51 CO 00069 ADDL2 RI 9(SP) F 
18 A240 9F 006¢ PUSHAB 24(R2)(RO) : 0627 
9E 51 4 00 ADDL2 Ri, a(SP)+ 3 
32 A240 9F 0007 PUSHAB 50(R2)CROJ > 0631 
9€ 51 ¢O 0007 ADDL2 R1, a(SP)+ ; 
OD Ad 94 007A CLRB «13 (BUCKET) + 0641 
04 Ad OE 80 7D MOV) 454 4 (BUCKET) : 0645 
02 ag 08 AA BO 00081 movw =: BC FX) (BUCKET) + 0649 
26 00006 CF EY 0086 BLBC ONV$GB_PROL_V3, 6$ : 0653 
02 AA 3 0088 TSTB (CTX) : 0659 
1B 13 00 Be BEQL 3 
50 AG = AA OSE «(000 MOVAB =92(R10), CTX_M1 > 0668 
51 60 08 95 EF 00094 EXTZV #5, ae. ctx M1), RI : 0670 
a9 02 0 1 FO 00099 INSV R1, #3, #2, T3(BUCKET) F 
0 00006 CF 3¢ 009F MOVZWL CONV$GW_VBN_FS_PTR, RO > 0674 
6049 9F DOA, PUSHAB (RO) BUCKET I : 
9€ 50 1 A’ 0 A7 SUBW3 #1, RO, a(SP)+ ; 
06 A9 1 8 OAB S$: MOVW #1. 6(BUCKET) > 0680 
4 1 QOOAF BRB 7$ ; 


vourbos” YN Touteeye tote Bp-15Be F3:13:5> — EebnvisRtSeonve st io-BSoe1 Page of} 
sf 4 28 AA i a 4 $3: Be WL — tere) | As 


; Routine Size: 189 bytes, Routine Base: _CONVSFAST_S + 015D 


10 
CONVSF STIO VAX=11 CONVERT 1b-5e 1984 23:54: AX-11 Bliss-32 v4.0-742 P 1 
—8 EXTEND_AREA 1a-8ep-19 4 3331 CONV. SRCICONVFST10.832;1 * (3) 
; 0 703 1 SSBTTL ‘EXTEND_AREA' 
; n¢ — GLOBAL ROUTINE CONVSSEXTEND_AREA ( AREA ) : CLSEXTEND_AREA NOVALUE = 
: 714 706 1 
; ay . it : Functiona! Description: 
3 at 209 1 Extens the disk allocation of a specified area 
3 ny ay i Calling Sequence: 
; fel it ; EXTEND_AREA ( .area ) 
3 f § 0719 1 Input Parameters: 
; g é Ont? : ! AREA = Area to be extended 
e: 0719 1 | Implicit Inputs: 
: $55 Oro) | seat: 
; 4 : 37 ; : Output Parameters: 
; 73 0724 1 
‘ ay 8 5 ’ : supra Se Gutputes 
: 735 O77 1 | 
3 ie) 8 Routine Value: 
: H non 
: 738 0730 1 | ot: 
: te O73 : Routines Called: 
> 741 O78 1: SEXTEND 
: o Or ee ; } CONVSSRMS_ERROR - By RMS as an AST 
; 74d 0736 i Side Effects: 
: : non 
. ha 0738 1 2 
3; 747 0739 1 — 
: 748 Bee 1 
: 749 741 BEGIN 
; 750 98 
a} Beez Set the allocation to the largest size. (To aviod bad parameters) 
: 75 0745 CONV$AB_OUT_FAB C FABSL_ALQ ) = 
s 736 —* MAX( .CONVSAR_AREA_BLOCK C_ .AREA,AREASW_DEQ ] 
; 02 r .CONVSAR_AREA_BLOCK C .AREA,AREASB_ARBKTSZ J} ); 
3 —3 0749 : Wait on the rab in case we have a asyinc operation going on 
3 739 0791 $WAIT( RAB=CONVSAB_OUT_RAB ); 
; et 0738 : Stuff the error if we get one 
3 163 0733 CONVS$AB_OUT_FAB C FABSL_CTX ] = CONVS_EXTN_ERR; 
3 5 0737 : Do the extend 
; +9 0759 SEXTEND ( FAB=CONVSAB_OUT_FAB,ERR=CONVSSRMS_ERROR ); 


—— 


51 


3; Routine Size: 


m< 
SSNS ox 


NNO 


00000000000 


—— a 
Wo 


2oc 


AAO 


03 


— 


ww 
o-rn 


AO 


123 bytes, 


PEE 


=11 CONVERT 
END_AREA 


Reset some pointers in the prologue 


CONVSAR_AREA_BLOCK “AREA, AREASL_CVBN J 

AREA, AREASL_NXTVBN 
AREA, AREASL— CNBLK 
CONVSAR- AREA BLOCK AREA, AREASL-USED ] = 
CONVSGL_EOF _JBN = . CONVSGL _EOF AYER + 


RETURN 


3 
984 


— 


Jo— 
* —0 


— 


EOF _VBN; 


EOF _VBN: 


. CONVS$AB_OUT_FAB NE FABSL_ALQ J; 


i _OUT_FAB C FABSL_ALOQ ; 


SYSSEXTEND 


#6, AREA, R2 
CONVSAR UAREA_ BLOCK, R2, R1 
— AREA_BLOCK, R2, RO 


#0, #3. FRO). 
—3 OUT_FAB+16 
RAB 


—*8 WAIT 
V3 EXTN ERR. CONVSAB_OUT_FAS+24 
SRMS S ERR OR 


at pe be “3 
283 


YSSEXTEND 

ONvSAR AREA_BLOCK, RO 
2(R2)0 

ONVSGL_EOF_VBN, @(SP)+ 
4(R2) CRO} ~ 

ONV SL. FOF. VBN, a(SP)+ 
ONVSAB_OUT_FAB+16, a(SP)+ 
0 RO) EROI 

0 


+ 
VS$AB_OUT_FAB+16, CONVS$GL_EOF _VBN 
<R2> 


END; 
eEXTRN 
52 DD 00000 CONVSSEXTEND _AREA:: 
PUSHE = R2 
08 A 06 78 0000 ASHL 
5 0000G CF C1 0000 ADDL 
5 0000G CF 4 000 ADDL 
51 244 41 OC 801 MOVZWL 
08 00 ED 00017 CMPZV 
04 15 0001D LEQ 
51 03 AO 9A QO001F MOVZBL 
0000G CF 51 pO 00023 1$: VL 
0000G CF 9F 00028 PUSHAB 
000000006 00 01 FB 000 — CALLS 
0000G CF 00000000G 8F D0 000 MOVL 
0000G CF 9F 0003C PUSHAB 
00006 CF 9F +9 904 PUSHAB 
000000006 00 02 4 0044 CALLS 
50 0000G CF 00 00048 MOVL 
OC A240 9F 00050 PUSHAB 
9E 0000G CF 00 00054 MOVL 
18 A240 9F 00059 PUSHAB 
9E 00006 CF 00 838 MOVL 
10 A240 X 00062 PUSHAB 
9E 0000G CF 00 86 OVL 
14 A240 9F 00068 PUSHAB 
9E D4 O006F CLRL 
0000G CF 0000G CF CO 00071 ADDL2 
04 9 0078 POPR 
5 0007A RSB 
Routine Base: _CONVSFAST_S + O21A 


re 


10 
CONVSFSTIO VAX=-11 CONVERT 18-Sep-19 4 23:54:1 AX-11 
you~000 CONVERT_VBN_ID 1228 08= 138 93:33:44 CONV.S 
: 781 ag 1 ZSBTTL ‘CONVERT_VBN | 
3 g ¢ ak : GLOBAL ROUTINE CONVSSCONVERT_VBN_ID : CLSCONVERT_VBN_ID NOVALUE = 
; Tr 775 1! 
: f 5 76 : } Functional Description: 
; 7 778 1! Converts the rfa created by the sort of the output file 
; res 14 : into a VBN and ID to be used as an alturnate index pointer 
; 790 O78 1! Calling Sequence: 
; 791 07 ¢ 1! 
; 79 7 1! CONVSSCONVERT_VBN_ID() 
: 79 784 1! 
3 794 0785 1 ! Input Parameters: 
3 795 83 1! none 
; 796 0787 1! 
3 797 0788 1 ! Implicit Inputs: 
; 798 0789 1! none 
; 799 0790 1! 
; 800 0791 1 ! Output Parameters: 
; 801 fas 4 1! none 
: 80 07935 1! 
; 80 0794 1! Implicit Outputs: 
: 804 0795 1! 
; 805 0796 1! SORT_VBN = R6~ VBN of the primary data record for this key 
3 B08 44.44 : SORT-ID = R7 ID of the primary data record for this key 
; 808 0799 1 ! Routine Value: 
: 809 0800 1! none 
; 810 0801 1! 
; 811 0802 1 ! Routines Called: 
3 zu 0803 1! none 
s #8 0804 1! 
3; 814 0805 1 ! Side Effects: 
s 85 0806 1! none 
>; 816 0807 1! 
; 817 0808 1 !-- 
; 818 0809 1 
3; 819 0810 BEGIN 
; 820 0811 
: 821 ttt EXTERNAL REGISTER 
3 33 081 SORT_VBN, 
3 aS? 34 SORT_ID; 
3 835 Bais Get the VBN an offset returned by SORT by RFA 
; 837 sts LOCAL SORT_RFA : REF BLOCK C ,BYTE J; 
: 3 8 SORT_RFA = .CONVSGL_RFA_BUFFER; 
3 B34 o8 § SORT_VBN = .SORT_RFA C 0,0,32,0_); 
; 32 8 ; SORT“ID = .SORT_RFA C 4,6,16,6 J; 
3 825 RETURN 
; 835 8 $ 
: 36 8 END; 


11 
vor~000 = EGuveRT“VBN ID iEeotage 44:3) ybel Bleed eYta0ebs2 


50 00006 CF 00 00000 CONVSSCONVERT_VBN_ID 

—81 8 VSG RFA_BUFFER, SORT_RFA 
56 69 90 2098 T_RFA), SORT _VBN 
04 1 £ 90 nov WL —68 RFAS, SORT. 1D 


; Routine Size: 13 bytes, Routine Base: _CONVSFAST_S + 0295 


838 0829 0 END —_ELUDON 


PSECT SUMMARY 


: Name Bytes Attributes 
: _CONVSFAST_D NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, pig ents! 
3 {CONVSFAST"S 672 NOVEC,NOWRT, RD. EXE. SHR. LCL. REL. CON. PIC.ALIGN(2) 


Library Statistics 


; — — Symbols — - Pages Processing 
: File Total Loaded Percent Mapped Time 

: ~$2558Duaz8: SYSLIBILIB.L32;1 18619 40 g 1000 00:01.9 
3 7$255$DUA28: (CONV. SRCJCONVERT.L32;1 165 31 1 17 00:00.2 
3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:CONVFSTIO/OBJ=OBJ$:CONVFSTIO MSRC$:CONVF STIO/UPDATE=(ENHS: CONVE STIO) 
3; Size: 674 code + 4 data bytes 

; Run Time: :18.4 

3; Elapsed Time 1:08.8 

3; Lines/CPU Min: 10 

3; Lexemes/CPU-Min: 19556 

; 4 At; Used: 136 pages 

: Compilation Complete 


— — —ñ — — — — ñ— — — — — ~ — — — — — — 
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